gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_Logout.asp
<!--#include file="Head.asp"--> <!--#include file="Inc/MD5.asp"--> <!--#include file="Api/Api_Class.asp"--> <% Dim ComeUrl,MemberName MemberName = Netout.UserName With Netout .SetCookie "UserId", "0" .SetCookie "UserName", "" .SetPurview "" .SetCookie "GroupID", 5 .SetCookie "Group", "" End With ComeUrl = Trim(Request("ComeUrl")) If ComeUrl = "" Then ComeUrl = Request.ServerVariables("HTTP_REFERER") End If If InStr(lcase(ComeUrl), "reg") Then ComeUrl = "./" ElseIf Instr(Lcase(ComeUrl),"apppurview.asp") Then ComeUrl = "./" End If If ComeUrl = "" Then ComeUrl = "./" '----------------------------------------------------------------- '系统整合 '----------------------------------------------------------------- Dim objApi,SysKey If Api_Enable Then Md5OLD = 1 SysKey = Md5(MemberName&Api_SysKey,Api_Md5_Len) Md5OLD = 0 Set objApi = New Lyout_Api Response.Write(objApi.SetCookie(SysKey,MemberName,"","")) Set objApi = Nothing Netout.TransUrl ComeUrl,1000 Else Netout.TransUrl ComeUrl,0 End If %>